home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / utilities / pu013.dms / pu013.adf / not_mine / header.S < prev    next >
Text File  |  2000-01-01  |  923b  |  63 lines
  1. execbase:    equ    4
  2. findresident:    equ    -$60
  3. doio:        equ    -$1c8
  4. location:    equ    $50000
  5. org location
  6. load location
  7.  
  8. dc.b    "DOS",0
  9. dc.l    $0
  10. dc.l    $370
  11. start:
  12. move.w    #$8100,$dff096
  13. move.l    #location,a2
  14. lea.l    blocklong(pc),a3
  15. move.l    (a3),d1
  16. move.l    #0,a3
  17. move.l    #0,d2
  18. checkloop:
  19. bclr    d2,d1
  20. bne    loadthis
  21. add.l    #$0200,a3
  22. addq.l    #1,d2
  23. tst.l    d1
  24. bne    checkloop
  25. bra    fertig_geladen
  26. loadthis:
  27. move.l    execbase,a6
  28. move.w    #2,28(a1)
  29. move.l    a3,44(a1)
  30. move.l    a2,40(a1)
  31. move.l    #$0200,36(a1)
  32. movem.l    d1-d2/a1-a3,-(a7)
  33. jsr    doio(a6)
  34. movem.l    (a7)+,d1-d2/a1-a3
  35. add.l    #$0200,a3
  36. add.l    #$0200,a2
  37. addq.l    #1,d2
  38. tst.l    d0
  39. beq    checkloop
  40. bra    continue_boot
  41. fertig_geladen:
  42. jsr    begin
  43. continue_boot:
  44. move.l    execbase,a6
  45. lea    dosname(pc),a1
  46. jsr    findresident(a6)
  47. tst.l    d0
  48. beq    boot_failed
  49. move.l    d0,a0
  50. move.l    22(a0),a0
  51. moveq    #0,d0
  52. rts
  53. boot_failed:
  54. moveq    #1,d0
  55. rts
  56. dosname:    dc.b    "dos.library",0
  57. blocklong:    dc.l    $00000001
  58. even
  59. begin:
  60. ********* hier prg einfuegen *********
  61. finis:
  62.  
  63.